function paramsTest(allModelParams,params,calibrateParams)

if isempty(calibrateParams)
    paramsTest = fieldnames(params);
else
    paramsTest = [fieldnames(calibrateParams);fieldnames(params)];
end
for i=1:size(allModelParams,2)
    name =allModelParams(1,i);
    flag = 0;
    for j=1:size(paramsTest,1)
        if  strcmp(name,paramsTest(j))
            flag = 1;
        end
    end
    if flag == 0 
       disp(['Parameter: "', name{1}, '" - not specified for estimation or calibration']) 
    end
end


end

